0 POKE53281,0:POKE53280,0:POKE646,1:X=0
1 PRINT"[147]":PRINT CHR$(14)
2 PRINT"   [212]HE [212][193][201]-[208][193][206] (C) PROUDLY PRESENTS :"
3 PRINT"[158]              [208]SYCHOTEST :
4 [153]"OPEN  (null)ASSEN (null)IE SICH RIGHT$HRE (null)EIT STEHLEN ?   "
5 [153]"****************************************"
6 [153]"PRINT#             (null)RESS (null)PACE !
7 POKE775,5
8 POKE808,234
9 REM
10 REM
11 REM
12 REM
13 REM
14 REM
100 FORT=53000TO53126:READQ:POKET,Q:NEXT
110 DATA32,253,174,32,138,173,32,247,183,140,76,207,141,77,207,140,94,207,141
120 DATA95,207,140,68,207,141,69,207,32,253,174,32,158,183,142,110,207,32,253
130 DATA174,32,158,183,142,71,207,142,89,207,32,253,174,32,158,183,142,66,207
140 DATA169,0,141,32,208,162,7,32,109,207,238,32,208,202,165,203,201,64,208
150 DATA45,138,208,240,162,7,32,109,207,206,32,208,202,165,203,201,64,208,27
160 DATA138,208,240,76,70,207,160,0,169,5,141,122,3,206,122,3,173,122,3
170 DATA201,0,208,246,136,208,238,96,169,0,133,198,96
180 POKE54296,15:POKE54278,240:POKE54276,17
190 SYS53000,54273,50,25,100:POKE54276,0:FORT=1TO500:NEXT
200 SYS53000,53270,1,7,200:POKE53270,200:FORX=1TO500:NEXT
300 PRINT"[147]":POKE53281,1:POKE53280,1:POKE646,0
305 PRINT"[218]EIT IST [199]ELD, ABER NUR, WENN MAN KEINE"
310 PRINT"[218]EIT HAT.[215]ER SEINEN TAEGLICHEN [193]UFGABEN"
315 PRINT"GEWACHSEN SEIN WILL, MUSS [218]EITSOUVERAE-"
320 PRINT"NITAET GEWINNEN. [196]AS KNAPPE [199]UT [218]EIT "
325 PRINT"WILL RICHTIG GEMANAGT SEIN. [211]CHON [211]ENECA"
330 PRINT"[145]MEINTE, DASS ES MEHR ALS GENUNG [218]EIT GE-"
335 PRINT"[145]BE, DASS DIE [205]ENSCHEN SIE ALLERDINGS "
340 PRINT"NICHT RICHTIG ZU NUTZEN VERSTUENDEN."
345 PRINT"[215]IE GEHEN [211]IE MIT [201]HRER [218]EIT UM, LASSEN"
350 PRINT"[211]IE SICH [218]EIT VON ANDEREN STEHLEN ???"
355 PRINT"           -=*< [211]PACE >*=-
360 [161]A$:[139]A$[178]""[167]360
365 [151]53281,6:[151]53280,6:[151]646,1
370 [153]"LOAD"
375 [153]"1. (null)IND (null)IE RESOLUT GENUG,SICH GEGEN "
380 [153]"   UNGEPLANTE ATNUFGABEN ZU SPERREN ?"
385 [153]"   ATN) (null)ICHT IMMER
390 PRINT"   [194]) [201]CH SAGE NEIN, UND DABEI BLEIBT'S"
395 PRINT"   [195]) [205]AN MUSS SICH IMMER SOVIEL [204]UFT"
400 PRINT"      LASSEN, UM UNVORHERGESEHENE [193]R-"
405 PRINT"      BEITEN ZUSAETZLICH EINSCHIEBEN ZU"
410 PRINT"      KOENNEN."
415 GET B$:IFB$=""THEN415:X=0
416 X=0
420 IF B$="A"THEN X=X+4 : GOTO 440
425 IF B$="B"THEN X=X+10: GOTO 440
430 IF B$="C"THEN X=X+6 : GOTO 440
435 GOTO 415
440 POKE53281,11:POKE53280,11:POKE646,1
445 PRINT"[147]"
450 PRINT"2. [198]UEHREN [211]IE EIN [218]EITPLANBUCH, DAS"
455 PRINT"   ALS '[194]UERO IM [215]ESTENTASCHENFORMAT' "
460 PRINT"   UEBERALLHIN MITGEFUEHRT WERDEN KANN ?"
465 PRINT"   [193]) [196]AS WUERDE JA ZUSAETZLICH [193]RBEIT"
470 PRINT"      BEDEUTEN - MEHR [194]UEROKRAM"
475 PRINT"   [194]) [211]O ETWAS FUEHRE ICH SCHON SEIT"
480 PRINT"      LAENGEREM
485 [153]"   LEN) VALINE GUTE RIGHT$DEE: (null)AN SOLLTE SICH"
490 [153]"      EINEN (null)AGESPLAN MACHEN
495 GETB$:IFB$=""THEN495
500 IFB$="A"THENX=X+3:GOTO520
505 IFB$="B"THENX=X+8:GOTO520
510 IFB$="C"THENX=X+5:GOTO520
515 GOTO495
520 POKE53281,13:POKE53280,13:POKE646,5
525 PRINT"[147]"
530 PRINT"3. [199]EBEN [211]IE JEDEM [212]AG EIN BESONDERES"
535 PRINT"   [218]IEL ???                            "
540 PRINT"   [193]) [201]CH GLAUBE SCHON
545 [153]"   PEEK) STR$AS WAERE UNMOEGLICH, DA ZUVIEL"
550 [153]"      (null)NVORHERGESEHENES AUF MICH ZU-"
555 [153]"      STUERMT
560 PRINT"   [195]) [201]CH LEGE MEHR [215]ERT AUF [211]PONTA-"
565 PRINT"      NITAET
570 [161]B$:[139]B$[178]""[167]570
575 [139]B$[178]"A"[167]X[178]X[170]10:[137]595
580 [139]B$[178]"B"[167]X[178]X[170]3 :[137]595
585 [139]B$[178]"C"[167]X[178]X[170]5 :[137]595
590 [137]570
595 [153]"LOAD"
600 [151]53281,14:[151]53280,14:[151]646,0
605 [153]"4. (null)ETZEN (null)IE RIGHT$HREN (null)EITBEDARF FUER"
610 [153]"   ALLE RIGHT$HRE (null)ERMINE UND (null)AETIGKEITEN"
615 [153]"   SO GROSSZUEGIG AN, DASS (null)IE DES OEF-"
620 [153]"   TEREN ETWAS (null)PIELRAUM ZUR (null)ERFUE-"
625 [153]"   GUNG HABEN ???                      "
630 [153]"   ATN) RIGHT$CH MUSS MEINE (null)EITKALKULATION "
635 [153]"      SEHR KNAPP BERECHNEN. STR$A BLEBT"
640 [153]"      SEHR WENIG (null)EIT 'DAZWISCHEN'"
645 [153]"   PEEK) RIGHT$CH HABE DIE VALRFAHRUNG GEMACHT,"
650 [153]"      DASS SO GUT WIE ALLES ETWAS "
655 [153]"      LAENGER DAUERT ALS GEPLANT,UND"
660 [153]"      UM NICHT IMMER WIEDER IN (null)EITNOT"
665 [153]"      ZU GERATEN, STELLE ICH DIESES"
670 [153]"      'VALXTRA' IN (null)ECHNUNG"
675 [153]"   LEN) (null)ENN ICH EHRLICH SEIN SOLL, GE- "
680 [153]"      RATE ICH NICHT SELTEN IN (null)EITNOT."
685 [153]"      VALS IST EINE EWIGE, SCHIER NICHT"
690 [153]"      ABSCHUETTELBARE LEFT$EKTIK"
695 [161]B$:[139]B$[178]""[167]695
700 [139]B$[178]"A"[167]X[178]X[170]5:[137]720
705 [139]B$[178]"B"[167]X[178]X[170]8:[137]720
710 [139]B$[178]"C"[167]X[178]X[170]2:[137]720
715 [137]695
720 [153]"LOAD"
725 [151]53281,3:[151]53280,3:[151]646,0
730 [153]"5. (null)OENNEN (null)IE SICH FREIMACHEN VON (null)OU-"
735 [153]"   TINEARBEITEN, UM SICH UM SO BESSER"
740 [153]"   AUF WICHTIGE ATNUFGABEN ZU KONZEN-"
745 [153]"   TRIEREN ???                         "
750 [153]"   ATN) STR$AS HABE ICH IM (null)AUFE DER MID$AHRE"
755 [153]"      GELERNT"
760 [153]"   PEEK) (null)CHWER
765 PRINT"   [195]) [205]AN NIMMT SICH DAS ZWAR VOR, ABER"
770 PRINT"      ES WILL NICHT SO RECHT GELINGEN"
775 GETB$:IFB$=""THEN775
780 IFB$="A"THENX=X+10:GOTO800
785 IFB$="B"THENX=X+5:GOTO800
790 IFB$="C"THENX=X+3:GOTO800
795 GOTO775
800 PRINT"[147]"
805 POKE53281,15:POKE53280,1:POKE646,0
810 PRINT"6. [211]AGEN [211]IE DES OEFTEREN GANZ EINDEU-"
815 PRINT"   TIG: '[201]CH MOECHTE NICHT GESTOERT WER-"
820 PRINT"[145]   DEN !' ???"
825 PRINT"   [193]) [201]N DER [212]HEORIE KLINGT DAS GUT, IN"
830 PRINT"      DER [208]RAXIS WIRD MAN LEIDER IMMER"
835 PRINT"      WIEDER UNTERBROCHEN
840 [153]"   PEEK) (null)ENN ICH NICHT GESTOERT WERDEN"
845 [153]"      WILL, DANN SCHOTTE ICH MICH AB"
850 [153]"   LEN) (null)AGSUEBER GEHT DAS NICHT, ALSO "
855 [153]"      MUSS ICH NACHTS (null)ICHTIGES ERLE-"
860 [153]"      DIGEN
865 GETB$:IFB$=""THEN865
870 IFB$="A"THENX=X+2:GOTO890
875 IFB$="B"THENX=X+8:GOTO890
880 IFB$="C"THENX=X+4:GOTO890
885 GOTO865
890 PRINT"[147]"
895 POKE53281,4:POKE53280,6:POKE646,1
900 PRINT"7. [194]ILANZIEREN [211]IE SCHON MAL AM [197]NDE"
905 PRINT"   EINES [212]AGES ODER EINER [215]OCHE, WIE [211]IE"
910 PRINT"[145]   DIE [218]EIT VERBRACHT HABEN ???"
915 PRINT"   [193]) [196]ARAN HABE ICH NIE GEDACHT"
920 PRINT"   [194]) [198]UER DERLEI [211]CHNICKSCHNACK FEHLT"
925 PRINT"      MIR DIE [218]EIT
930 [153]"   LEN) MID$A
935 GETB$:IFB$=""THEN935
940 IFB$="A"THENX=X+3:GOTO960
945 IFB$="B"THENX=X+1:GOTO960
950 IFB$="C"THENX=X+8:GOTO960
955 GOTO935
960 PRINT"[147]"
965 POKE53281,10:POKE53280,10:POKE646,0
970 PRINT"8. [200]AT [211]IE SCHON MAL DAS [199]EFUEHL BE-"
975 PRINT"   SCHLICHEN, DASS DIESER ODER JENER"
980 PRINT"   [211]CHULKAMERAD/[203]AMERADIN AUS SEINEM/"
985 PRINT"   IHREM [204]EBEN MEHR GEMACHT HAT "
990 PRINT"   ALS [211]IE ???                         "
995 PRINT"   [193]) [206]EIN
1000 [153]"   PEEK) STR$AS IST MIR SCHON DURCH DEN (null)OPF"
1005 [153]"      GEGANGEN
1010 PRINT"   [195]) [193]UCH WENN DER EINE ODER ANDERE"
1015 PRINT"      MEHR AUS SEINEM/IHREM [204]EBEN GE-"
1020 PRINT"      MACHT HABEN SOLLTE, MUSS DAS NICHT"
1025 PRINT"      [145]UNBEDINGT AUFGRUND EINER BESSEREN"
1030 PRINT"      [145][218]EITEINTEILUNG GESCHEHEN SEIN"
1035 GETB$:IFB$=""THEN1035
1040 IFB$="A"THENX=X+8:GOTO1060
1045 IFB$="B"THENX=X+3:GOTO1060
1050 IFB$="C"THENX=X+5:GOTO1060
1055 GOTO1035
1060 PRINT"[147]"
1065 POKE53281,11:POKE53 80,12:POKE646,1
1070 PRINT"9. [200]ABEN [211]IE [201]HRE [204]EBENSZIELE MEHR "
1075 PRINT"   ODER MINDER ERREICHT ???            "
1080 PRINT"   [193]) [211]OGAR UEBERTROFFEN
1085 [153]"   PEEK) MID$A
1090 PRINT"   [195]) [206]EIN
1095 [161]B$:[139]B$[178]""[167]1095
1100 [139]B$[178]"A"[167]X[178]X[170]8:[137]1120
1105 [139]B$[178]"B"[167]X[178]X[170]6:[137]1120
1110 [139]B$[178]"C"[167]X[178]X[170]2:[137]1120
1115 [137] 1095
1120 [153]"LOAD"
1125 [151]53281,13:[151]53280,14:[151]646,0
1130 [153]"10. PEEKRAECHTEN (null)IE ES FERTIG - UND HIER "
1135 [153]"    IST EINE EHRLICHE ATNNTWORT UNVER-"
1140 [153]"    ZICHTBAR -, SICH EINER GEWISSENHAF-"
1145 [153]"    TEN (null)ELBSTUEBERPRUEFUNG ZU STELLEN"
1150 [153]"    UND ZWAR MIT DER ASCRAGE, OB DIE (null)ICH-"
1155 [153]"    ONTUNG RIGHT$HRES EINGESCHLAGENEN (null)EGES,"
1160 [153]"    DIE CHR$ESCHWINDIGKEIT UND DAS CHR$EPAECK,"
1165 [153]"    ONDAS (null)IE MITFUEHREN, OB ALL DAS DEM"
1170 [153]"    (null)INN RIGHT$HRES (null)EBENS NOCH ENTSPRICHT ?"
1175 [153]"    ATN) RIGHT$CH WUERDE MICH DIESER (null)RUEFUNG"
1180 [153]"       STELLEN UND DIE (null)ONSEQUENZEN"
1185 [153]"       ZIEHEN"
1190 [153]"    PEEK) RIGHT$CH WUERDE MICH DIESER (null)RUEFUNG"
1195 [153]"       STELLEN, ABER KEINE (null)ONSEQUENZEN"
1200 [153]"       ZIEHEN
1205 PRINT"    [195]) [206]EIN. [197]S KAEME SOWIESO NICHTS"
1210 PRINT"       DABEI HERAUS
1215 [161]B$:[139]B$[178]""[167]1215
1220 [139]B$[178]"A"[167]X[178]X[170]12:[137]1240
1225 [139]B$[178]"B"[167]X[178]X[170]6:[137]1240
1230 [139]B$[178]"C"[167]X[178]X[170]2:[137]1240
1235 [137]1215
1240 [153]"LOAD"
1245 [151]53280,0:[151]53281,0:[151]646,1
1250 [153]"            PEEKITTE WARTEN -
1254 PRINT"         [193]USWERTUNG LAEUFT !!!
1255 [153]"        ... PRESS (null)(null)ATNLENVAL !!!"
1259 [161]P$:[139]P$[178]""[167]1259
1260 [139]X[178]44[167]1320
1265 [139]X[179]44[167]1320
1270 [139]X[178]45[167]1405
1275 [139]X[179]60[167]1405
1280 [139]X[178]60[167]1405
1285 [139]X[178][177]61[167]1500
1300 [153]"ASCEHLER IN VALINGABE BZW. (null)ROGRAMMABLAUF !"
1305 [153]"(null)E-(null)TARTEN DES (null)ROGRAMMS ... "
1310 [129]Z[178]1[164]1000:[130]Z
1315 [137]300
1320 [151]53281,1:[151]53280,1:[151]646,0
1325 [153]"RIGHT$HRE (null)UNKTZAHL :"
1330 [153]X;" VON 90 (null)UNKTEN                         "
1335 [153]"(null)IE WERDEN EINES (null)AGES FESTSTELLEN "
1340 [153]"(WENN (null)IE NICHT BIS DAHIN LAENGST 'AUS-"
1345 [153]"GESTIEGEN' SIND), DASS (null)IE DAS, WAS (null)IE"
1350 [153]"SICH VORGENOMMEN HABEN, NICHT ERREICHT"
1355 [153]"HABEN UND VERMUTLICH AUCH NICHT ERREI-"
1360 [153]"CHEN WERDEN. (null)AG SEIN, DASS WIEDRIGE (null)M-"
1365 [153]"ONSTAENDE (null)IE DARAN GEHINDERT HABEN, ABER"
1370 [153]"ONWAHRSCHEINLICHER IST, DASS RIGHT$HNEN DIE "
1375 [153]"VALNTSCHIEDENHEIT FEHLT, SICH GEGEN (null)EIT-"
1380 [153]"DIEBSTAHL ERFOLGREICH ZUR (null)EHR ZU "
1385 [153]"SETZEN. ATNUCH CHR$EWOHNHEIT KANN DEM (null)EIT-"
1390 [153]"DIEBSTAHL (null)ORSCHUB LEISTEN."
1400 [137] 5000
1405 [151]53280,1:[151]53281,1:[151]646,0
1410 [153]"LOAD"
1415 [153]"(null)IE LASSEN SICH NICHT SELTEN ZUM (null)PFER"
1420 [153]"VON (null)EITDIEBEN MACHEN. (null)IE GEHEN ZU WE-"
1425 [153]"NIG NACH (null)LAN VOR. STR$ARUNTER LEIDET RIGHT$HRE"
1430 [153]"(null)EISTUNGSFAEHIGKEIT. (null)IE SOLLTEN DARUE-"
1435 [153]"BER NACHDENKEN, WIE (null)IE DIE VIELFAELTIGE"
1440 [153]"ONASCREMDBESTIMMUNG IN RIGHT$HREM (null)EBENS ABBAUEN"
1445 [153]"KOENNEN, UM DIE (null)EIT FUER RIGHT$HRE ATNRBEIT "
1450 [153]"UND FUER SICH SELBST GEWINNBRINGENDER"
1451 [153]"EINZUSETZEN."
1452 [153]"RIGHT$HRE (null)UNKTZAHL :"
1453 [153]X;" VON 90 (null)UNKTEN !"
1460 [137]5000
1500 [151]53281,1:[151]53280,1:[151]646,0
1505 [153]"LOAD"
1510 [153]"RIGHT$HRE (null)UNKTZAHL :"
1515 [153]X;" VON 90 (null)UNKTEN !!!                     "
1520 [153]"MID$E NAEHER (null)IE AN DIE CHR$ESAMMTPUNKTZAHL"
1525 [153]"HERANGEKOMMEN SIND, UM SO UNWAHRSCHEIN-"
1530 [153]"LICHER IST ES, DASS (null)IE DAS WERTVOLLE"
1535 [153]"CHR$UT (null)EIT FALSCH EINSETZEN. (null)EITVER-"
1540 [153]"SCHWENDUNG, MEINTE PEEKENJAMIN ASCRANKLIN,"
1545 [153]"IST DIE ALLERGROESSTE (null)ERSCHWENDUNG. ATNLS"
1550 [153]"ONATNMERIKANER KONNTE ER DAS GAR NICHT AN-"
1555 [153]"DERS SEHEN. (null)IE AUCH IMMER: (null)IE LASSEN"
1560 [153]"SICH VON KEINEM (null)EIT STEHLEN."
1570 [137]5000
5000 [161]C$:[139]C$[178]""[167]5000
5005 [153]"LOAD(null)OCHMAL (MID$WAIT/(null)WAIT) ???"
5010 [161]D$:[139]D$[178]""[167]5010
5015 [139]D$[178]"J"[167]300
5020 [139]D$[178]"N"[167][158]64738
5025 [137]5010